home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / coppergelly / copper-gelly.s < prev    next >
Text File  |  1980-01-03  |  19KB  |  1,475 lines
  1.  
  2. **    COPPER-GELLY
  3. **    CODED BY CRADON/MATRIX
  4. **    ASM-ONE FORMAT
  5.  
  6. *******************************************************************************
  7.  
  8.     SECTION    MAIN,CODE_C
  9.  
  10. START    MOVEM.L    D0-A6,-(A7)
  11.     MOVE.W    $DFF01C,INTENA
  12.     MOVE.W    $DFF002,DMACON
  13.     MOVE.W    $DFF010,ADKCON
  14.     MOVE.W    #%0111111111111111,$DFF096
  15.     MOVE.W    #%0111111111111111,$DFF09A
  16.     MOVE.W    #%0111111111111111,$DFF09C
  17.     MOVE.L     $6C,OLDIRQ
  18.     MOVE.L     #MYIRQ,$6C
  19.  
  20.     JSR    TABINIT        ; PREPARE "COPPER-GELLY" RUTINE
  21.     JSR    COPINIT        ; ACTIVATE COPPERLIST
  22.  
  23.     MOVE.W    #%1000001111000000,$DFF096
  24.     MOVE.W     #%1100000000110000,$DFF09A
  25. LOOP    BTST    #6,$BFE001
  26.     BNE.B    LOOP
  27. ENDE    MOVE.W    #%0111111111111111,$DFF096
  28.     MOVE.W    #%0111111111111111,$DFF09A
  29.     MOVE.W    #%0111111111111111,$DFF09C
  30.     MOVE.L    OLDIRQ(PC),$00006C
  31.     MOVE.W    DMACON(PC),D0            
  32.     OR.W    #$8000,D0            
  33.     MOVE.W    D0,$DFF096
  34.     MOVE.W    ADKCON(PC),D0            
  35.     OR.W    #$8000,D0
  36.     MOVE.W    D0,$DFF09E
  37.     MOVE.W    INTENA(PC),D0            
  38.     OR.W    #$C000,D0
  39.     MOVE.W    D0,$DFF09A
  40.     MOVE.W    #0,$DFF088
  41.     MOVEM.L    (A7)+,D0-A6
  42.     RTS
  43.  
  44. ** COPPER-GELLY BY CRADON/MATRIX PRODUCTIONS 1993 *****************************
  45.  
  46. SIZE    = 27    ; CHECKER HIGHT
  47. CONVERT = 20    ; COLOUR ADJUSTMENT
  48. SPEED1    = 2    ; SINE TABLE 1
  49. SPEED2  = 12    ; SINE TABLE 2
  50.  
  51. COLOUR1 DC.W    $00EE
  52. COLOUR2 DC.W    $00FF
  53.  
  54. COPFILL    LEA.L    NTSC,A0
  55.     LEA.L    SINUS,A1
  56.     LEA.L    SINUS2,A2
  57.     ADD.W    SINOFF(PC),A1
  58.     ADD.W    SIN2OFF(PC),A2
  59.     ADD.W    #SPEED1,SINOFF
  60.     ADD.W    #SPEED2,SIN2OFF
  61.     MOVE.W    #$2301,D1
  62.     MOVE.W    #220,D2
  63.     MOVE.W    COLOUR1(PC),COL1
  64.     MOVE.W    COLOUR2(PC),COL2
  65.  
  66.     MOVE.W    #SIZE,CCOUNT
  67.     MOVE.W    CCOFF(PC),D0
  68.     EXT.L    D0
  69.     MOVE.W    #SIZE,D3
  70.     LSL.W    D3
  71.     CMP.W    D3,D0
  72.     BNE.B    NORESET
  73.     MOVE.W    #0,CCOFF
  74. NORESET    ADDQ.W    #2,CCOFF
  75.     LEA.L    CCNEW(PC),A3
  76.     ADD.W    CCOFF(PC),A3
  77.     MOVE.W    (A3),D0
  78.     SUB.W    D0,CCOUNT
  79.  
  80.     CMP.W    #SIZE,CCOUNT
  81.  
  82.     BNE.B    COPLOP1
  83.     MOVE.W    COLOUR1(PC),D3
  84.     MOVE.W    COLOUR2(PC),COLOUR1
  85.     MOVE.W    D3,COLOUR2
  86.  
  87. COPLOP1    MOVE.L    #TERN,D0
  88.     MOVE.W    (A1)+,D4
  89.     CMP.W    #$FFFF,D4
  90.     BNE.B    NOPROB1        ; END OF SINE TABLE?
  91.     LEA.L    SINUS,A1
  92.     MOVE.W    #0,SINOFF
  93.     MOVE.W    (A1)+,D4
  94. NOPROB1    MOVE.W    (A2)+,D5
  95.     CMP.W    #$FFFF,D5
  96.     BNE.B    NOPROBA
  97.     LEA.L    SINUS2,A2
  98.     MOVE.W    #0,SIN2OFF
  99.     ADD.W    SIN2OFF(PC),A2
  100.     MOVE.W    (A2)+,D5
  101. NOPROBA    ADD.W    D5,D4        ; OFFSET IN GRAPHICS
  102.     MOVE.W    D4,D5        ; (FOR LATER USE IN COLOUR ADJUSTMENT)
  103.     MULU    #44,D4
  104.     ADD.L    D4,D0        ; ADD OFFSET TO ADDRESS FOR BITPLANE POINTER
  105.     MOVE.W    D1,(A0)+
  106.     SUBQ.W    #1,CCOUNT
  107.     TST.W    CCOUNT        ; IS IT TIME TO CHANGE COLOURS? (MAKE CHECKERS)
  108.     BNE.B    SETCOP1
  109.     MOVE.W    COL1(PC),D3
  110.     MOVE.W    COL2(PC),COL1
  111.     MOVE.W    D3,COL2
  112.     MOVE.W    #SIZE,CCOUNT
  113. SETCOP1    EXT.L    D5
  114.     DIVU    #CONVERT,D5    ; ADJUST COLOURS
  115.     MOVE.W    COL1(PC),D3
  116.     MOVE.W    COL2(PC),D4
  117.     SUB.W    D5,D3
  118.     SUB.W    D5,D4
  119.     MOVE.W    #$FFFE,(A0)+    ; WRITE CHANGES TO COPPERLIST
  120.     MOVE.W    #$0180,(A0)+
  121.     MOVE.W    D3,(A0)+
  122.     MOVE.W    #$0182,(A0)+
  123.     MOVE.W    D4,(A0)+
  124.     MOVE.W    #$00E0,(A0)+
  125.     SWAP    D0
  126.     MOVE.W    D0,(A0)+
  127.     MOVE.W    #$00E2,(A0)+
  128.     SWAP    D0
  129.     MOVE.W    D0,(A0)+
  130.     ADD.L    #$100,D1
  131.     DBRA    D2,COPLOP1    
  132.     LEA.L    PAL,A0
  133.     MOVE.W    #$0001,D1
  134.     MOVE.W    #51,D2
  135.  
  136. COPLOP2    MOVE.L    #TERN,D0
  137.     MOVE.W    (A1)+,D4
  138.     CMP.W    #$FFFF,D4
  139.     BNE.B    NOPROB2
  140.     LEA.L    SINUS,A1
  141.     MOVE.W    #0,SINOFF
  142.     MOVE.W    (A1)+,D4
  143. NOPROB2    MOVE.W    (A2)+,D5
  144.     CMP.W    #$FFFF,D5
  145.     BNE.B    NOPROBB
  146.     LEA.L    SINUS2,A2
  147.     MOVE.W    #0,SIN2OFF
  148.     ADD.W    SIN2OFF(PC),A2
  149.     MOVE.W    (A2)+,D5
  150. NOPROBB    ADD.W    D5,D4
  151.     MOVE.W    D4,D5
  152.     MULU    #44,D4
  153.     ADD.L    D4,D0
  154.     MOVE.W    D1,(A0)+
  155.     SUBQ.W    #1,CCOUNT
  156.     TST.W    CCOUNT
  157.     BNE.B    SETCOP2
  158.     MOVE.W    COL1(PC),D3
  159.     MOVE.W    COL2(PC),COL1
  160.     MOVE.W    D3,COL2
  161.     MOVE.W    #SIZE,CCOUNT
  162. SETCOP2    EXT.L    D5
  163.     DIVU    #CONVERT,D5
  164.     MOVE.W    COL1(PC),D3
  165.     MOVE.W    COL2(PC),D4
  166.     SUB.W    D5,D3
  167.     SUB.W    D5,D4
  168.     MOVE.W    #$FFFE,(A0)+
  169.     MOVE.W    #$0180,(A0)+
  170.     MOVE.W    D3,(A0)+
  171.     MOVE.W    #$0182,(A0)+
  172.     MOVE.W    D4,(A0)+
  173.     MOVE.W    #$00E0,(A0)+
  174.     SWAP    D0
  175.     MOVE.W    D0,(A0)+
  176.     MOVE.W    #$00E2,(A0)+
  177.     SWAP    D0
  178.     MOVE.W    D0,(A0)+
  179.     ADD.L    #$100,D1
  180.     DBRA    D2,COPLOP2    
  181.     RTS
  182.  
  183. TABINIT    MOVE.W    #SIZE,D0
  184.     LEA.L    CCNEW,A0
  185. TABLOOP    MOVE.W    D0,(A0)+
  186.     SUBQ.W    #1,D0
  187.     BNE    TABLOOP
  188.     RTS
  189.  
  190. ** ACTIVATE COPPERLIST ********************************************************
  191.  
  192. COPINIT    MOVE.L    #COPPER,D0
  193.     LEA.L    ADDRESS,A0
  194.     MOVE.W    D0,6(A0)
  195.     SWAP    D0
  196.     MOVE.W    D0,2(A0)
  197.     MOVE.L    #COPPER,$DFF084
  198.     MOVE.B    #$00,$DFF08A
  199.     RTS
  200.     
  201. *******************************************************************************
  202.  
  203. MYIRQ    MOVEM.L    D0-A6,-(A7)
  204.  
  205.     JSR    COPFILL
  206.  
  207.     MOVE.B    $DFF006,D0
  208.     MOVE.B    RASTTID,D1
  209.     CMP.B    D0,D1
  210.     BGT.B    NOPE
  211.     
  212.     MOVE.B    D0,RASTTID
  213.  
  214. NOPE    MOVE.W    #$20,$DFF09C
  215.     MOVEM.L    (A7)+,D0-A6         
  216.     RTE
  217.  
  218. ** ABSOLUTES ******************************************************************
  219.  
  220. RASTTID    DC.B    0
  221.     EVEN
  222.  
  223. OLDIRQ    DC.L    0
  224. INTENA    DC.W    0
  225. DMACON    DC.W    0
  226. ADKCON    DC.W    0
  227.  
  228. TCOUNT    DC.W    0
  229. CHECKER    DC.W    0
  230. CCOUNT    DC.W    0
  231. COL1    DC.W    0
  232. COL2    DC.W    0
  233. SINOFF    DC.W    0
  234. SIN2OFF    DC.W    0
  235. CCOFF    DC.W    0
  236. CCNEW    BLK.W    50,0
  237.  
  238. ** COPPERLIST *****************************************************************
  239.  
  240.     SECTION    B,DATA_C
  241.  
  242. COPPER    DC.W    $008E,115+(35*256)        ; WINDOW START (115,35)
  243.     DC.W    $0090,(467-256)+(305-256)*256    ; WINDOW STOP (467,305)
  244.     DC.W    $0092,(115/2-8)            ; 8:LOWRES (4:HIGHRES)
  245.     DC.W    $0094,(115/2-8)+(8*(22-1))    ; 22:HORIZONTAL WORD COUNT
  246.     DC.W    $0102,$0000            ; HORIZONTAL SCROLL
  247.     DC.W    $0104,$0000            ; VIDIO PRIORITY
  248.     DC.W    $0108,$0000            ; MODULO FOR ODD PLANES
  249.     DC.W    $010A,$0000            ; MODULO FOR EVEN PLANES
  250.     DC.W    $0100,$1200            ; NUMBER OF BITPLANES
  251.  
  252. NTSC    BLK.W    [10*221],$0000
  253.     DC.W    $FFE1,$FFFE            ; JUMP TO PAL
  254. PAL    BLK.W    [10*52],$0000
  255.  
  256.     DC.W    $0100,$0200
  257.  
  258. ADDRESS    DC.W    $0084,$0000,$0086,$0000     ; RESTART ADDRESS
  259.     DC.W    $008A,$0000,$FFFF,$FFFE        ; FORCE RESTART
  260.  
  261. ** SCREEN *********************************************************************
  262.  
  263. TERN    INCBIN    "work:source/PATTERN4-352.BIT"
  264.  
  265.     SECTION    PURE_DATA,DATA_F
  266.  
  267. SINUS    DC.W     85 
  268.     DC.W     87 
  269.     DC.W     90 
  270.     DC.W     93 
  271.     DC.W     96 
  272.     DC.W     98 
  273.     DC.W     101 
  274.     DC.W     104 
  275.     DC.W     107 
  276.     DC.W     109 
  277.     DC.W     112 
  278.     DC.W     115 
  279.     DC.W     117 
  280.     DC.W     120 
  281.     DC.W     122 
  282.     DC.W     125 
  283.     DC.W     127 
  284.     DC.W     130 
  285.     DC.W     132 
  286.     DC.W     134 
  287.     DC.W     137 
  288.     DC.W     139 
  289.     DC.W     141 
  290.     DC.W     143 
  291.     DC.W     145 
  292.     DC.W     147 
  293.     DC.W     149 
  294.     DC.W     151 
  295.     DC.W     152 
  296.     DC.W     154 
  297.     DC.W     156 
  298.     DC.W     157 
  299.     DC.W     159 
  300.     DC.W     160 
  301.     DC.W     161 
  302.     DC.W     162 
  303.     DC.W     163 
  304.     DC.W     164 
  305.     DC.W     165 
  306.     DC.W     166 
  307.     DC.W     167 
  308.     DC.W     168 
  309.     DC.W     168 
  310.     DC.W     169 
  311.     DC.W     169 
  312.     DC.W     169 
  313.     DC.W     169 
  314.     DC.W     169 
  315.     DC.W     169 
  316.     DC.W     169 
  317.     DC.W     169 
  318.     DC.W     169 
  319.     DC.W     169 
  320.     DC.W     168 
  321.     DC.W     168 
  322.     DC.W     167 
  323.     DC.W     166 
  324.     DC.W     165 
  325.     DC.W     164 
  326.     DC.W     163 
  327.     DC.W     162 
  328.     DC.W     161 
  329.     DC.W     160 
  330.     DC.W     159 
  331.     DC.W     157 
  332.     DC.W     156 
  333.     DC.W     154 
  334.     DC.W     152 
  335.     DC.W     151 
  336.     DC.W     149 
  337.     DC.W     147 
  338.     DC.W     145 
  339.     DC.W     143 
  340.     DC.W     141 
  341.     DC.W     139 
  342.     DC.W     137 
  343.     DC.W     134 
  344.     DC.W     132 
  345.     DC.W     130 
  346.     DC.W     127 
  347.     DC.W     125 
  348.     DC.W     122 
  349.     DC.W     120 
  350.     DC.W     117 
  351.     DC.W     115 
  352.     DC.W     112 
  353.     DC.W     109 
  354.     DC.W     107 
  355.     DC.W     104 
  356.     DC.W     101 
  357.     DC.W     98 
  358.     DC.W     96 
  359.     DC.W     93 
  360.     DC.W     90 
  361.     DC.W     87 
  362.     DC.W     85 
  363.     DC.W     82 
  364.     DC.W     79 
  365.     DC.W     76 
  366.     DC.W     73 
  367.     DC.W     71 
  368.     DC.W     68 
  369.     DC.W     65 
  370.     DC.W     62 
  371.     DC.W     60 
  372.     DC.W     57 
  373.     DC.W     54 
  374.     DC.W     52 
  375.     DC.W     49 
  376.     DC.W     47 
  377.     DC.W     44 
  378.     DC.W     42 
  379.     DC.W     39 
  380.     DC.W     37 
  381.     DC.W     35 
  382.     DC.W     32 
  383.     DC.W     30 
  384.     DC.W     28 
  385.     DC.W     26 
  386.     DC.W     24 
  387.     DC.W     22 
  388.     DC.W     20 
  389.     DC.W     18 
  390.     DC.W     17 
  391.     DC.W     15 
  392.     DC.W     13 
  393.     DC.W     12 
  394.     DC.W     10 
  395.     DC.W     9 
  396.     DC.W     8 
  397.     DC.W     7 
  398.     DC.W     6 
  399.     DC.W     5 
  400.     DC.W     4 
  401.     DC.W     3 
  402.     DC.W     2 
  403.     DC.W     1 
  404.     DC.W     1 
  405.     DC.W     0 
  406.     DC.W     0 
  407.     DC.W     0 
  408.     DC.W     0 
  409.     DC.W     0 
  410.     DC.W     0 
  411.     DC.W     0 
  412.     DC.W     0 
  413.     DC.W     0 
  414.     DC.W     0 
  415.     DC.W     1 
  416.     DC.W     1 
  417.     DC.W     2 
  418.     DC.W     3 
  419.     DC.W     4 
  420.     DC.W     5 
  421.     DC.W     6 
  422.     DC.W     7 
  423.     DC.W     8 
  424.     DC.W     9 
  425.     DC.W     10 
  426.     DC.W     12 
  427.     DC.W     13 
  428.     DC.W     15 
  429.     DC.W     17 
  430.     DC.W     18 
  431.     DC.W     20 
  432.     DC.W     22 
  433.     DC.W     24 
  434.     DC.W     26 
  435.     DC.W     28 
  436.     DC.W     30 
  437.     DC.W     32 
  438.     DC.W     35 
  439.     DC.W     37 
  440.     DC.W     39 
  441.     DC.W     42 
  442.     DC.W     44 
  443.     DC.W     47 
  444.     DC.W     49 
  445.     DC.W     52 
  446.     DC.W     54 
  447.     DC.W     57 
  448.     DC.W     60 
  449.     DC.W     62 
  450.     DC.W     65 
  451.     DC.W     68 
  452.     DC.W     71 
  453.     DC.W     73 
  454.     DC.W     76 
  455.     DC.W     79 
  456.     DC.W     82 
  457.     DC.W     84 
  458.     DC.W     87 
  459.     DC.W     90 
  460.     DC.W     93 
  461.     DC.W     96 
  462.     DC.W     98 
  463.     DC.W     101 
  464.     DC.W     104 
  465.     DC.W     107 
  466.     DC.W     109 
  467.     DC.W     112 
  468.     DC.W     115 
  469.     DC.W     117 
  470.     DC.W     120 
  471.     DC.W     122 
  472.     DC.W     125 
  473.     DC.W     127 
  474.     DC.W     130 
  475.     DC.W     132 
  476.     DC.W     134 
  477.     DC.W     137 
  478.     DC.W     139 
  479.     DC.W     141 
  480.     DC.W     143 
  481.     DC.W     145 
  482.     DC.W     147 
  483.     DC.W     149 
  484.     DC.W     151 
  485.     DC.W     152 
  486.     DC.W     154 
  487.     DC.W     156 
  488.     DC.W     157 
  489.     DC.W     159 
  490.     DC.W     160 
  491.     DC.W     161 
  492.     DC.W     162 
  493.     DC.W     163 
  494.     DC.W     164 
  495.     DC.W     165 
  496.     DC.W     166 
  497.     DC.W     167 
  498.     DC.W     168 
  499.     DC.W     168 
  500.     DC.W     169 
  501.     DC.W     169 
  502.     DC.W     169 
  503.     DC.W     169 
  504.     DC.W     169 
  505.     DC.W     169 
  506.     DC.W     169 
  507.     DC.W     169 
  508.     DC.W     169 
  509.     DC.W     169 
  510.     DC.W     168 
  511.     DC.W     168 
  512.     DC.W     167 
  513.     DC.W     166 
  514.     DC.W     165 
  515.     DC.W     164 
  516.     DC.W     163 
  517.     DC.W     162 
  518.     DC.W     161 
  519.     DC.W     160 
  520.     DC.W     159 
  521.     DC.W     157 
  522.     DC.W     156 
  523.     DC.W     154 
  524.     DC.W     152 
  525.     DC.W     151 
  526.     DC.W     149 
  527.     DC.W     147 
  528.     DC.W     145 
  529.     DC.W     143 
  530.     DC.W     141 
  531.     DC.W     139 
  532.     DC.W     137 
  533.     DC.W     134 
  534.     DC.W     132 
  535.     DC.W     130 
  536.     DC.W     127 
  537.     DC.W     125 
  538.     DC.W     122 
  539.     DC.W     120 
  540.     DC.W     117 
  541.     DC.W     115 
  542.     DC.W     112 
  543.     DC.W     109 
  544.     DC.W     107 
  545.     DC.W     104 
  546.     DC.W     101 
  547.     DC.W     98 
  548.     DC.W     96 
  549.     DC.W     93 
  550.     DC.W     90 
  551.     DC.W     87 
  552.     DC.W     84 
  553.     DC.W     82 
  554.     DC.W     79 
  555.     DC.W     76 
  556.     DC.W     73 
  557.     DC.W     71 
  558.     DC.W     68 
  559.     DC.W     65 
  560.     DC.W     62 
  561.     DC.W     60 
  562.     DC.W     57 
  563.     DC.W     54 
  564.     DC.W     52 
  565.     DC.W     49 
  566.     DC.W     47 
  567.     DC.W     44 
  568.     DC.W     42 
  569.     DC.W     39 
  570.     DC.W     37 
  571.     DC.W     35 
  572.     DC.W     32 
  573.     DC.W     30 
  574.     DC.W     28 
  575.     DC.W     26 
  576.     DC.W     24 
  577.     DC.W     22 
  578.     DC.W     20 
  579.     DC.W     18 
  580.     DC.W     17 
  581.     DC.W     15 
  582.     DC.W     13 
  583.     DC.W     12 
  584.     DC.W     10 
  585.     DC.W     9 
  586.     DC.W     8 
  587.     DC.W     7 
  588.     DC.W     6 
  589.     DC.W     5 
  590.     DC.W     4 
  591.     DC.W     3 
  592.     DC.W     2 
  593.     DC.W     1 
  594.     DC.W     1 
  595.     DC.W     0 
  596.     DC.W     0 
  597.     DC.W     0 
  598.     DC.W     0 
  599.     DC.W     0 
  600.     DC.W     0 
  601.     DC.W     0 
  602.     DC.W     0 
  603.     DC.W     0 
  604.     DC.W     0 
  605.     DC.W     1 
  606.     DC.W     1 
  607.     DC.W     2 
  608.     DC.W     3 
  609.     DC.W     4 
  610.     DC.W     5 
  611.     DC.W     6 
  612.     DC.W     7 
  613.     DC.W     8 
  614.     DC.W     9 
  615.     DC.W     10 
  616.     DC.W     12 
  617.     DC.W     13 
  618.     DC.W     15 
  619.     DC.W     17 
  620.     DC.W     18 
  621.     DC.W     20 
  622.     DC.W     22 
  623.     DC.W     24 
  624.     DC.W     26 
  625.     DC.W     28 
  626.     DC.W     30 
  627.     DC.W     32 
  628.     DC.W     35 
  629.     DC.W     37 
  630.     DC.W     39 
  631.     DC.W     42 
  632.     DC.W     44 
  633.     DC.W     47 
  634.     DC.W     49 
  635.     DC.W     52 
  636.     DC.W     54 
  637.     DC.W     57 
  638.     DC.W     60 
  639.     DC.W     62 
  640.     DC.W     65 
  641.     DC.W     68 
  642.     DC.W     71 
  643.     DC.W     73 
  644.     DC.W     76 
  645.     DC.W     79 
  646.     DC.W     82 
  647.     DC.W     84 
  648.     DC.W     87 
  649.     DC.W     90 
  650.     DC.W     93 
  651.     DC.W     96 
  652.     DC.W     98 
  653.     DC.W     101 
  654.     DC.W     104 
  655.     DC.W     107 
  656.     DC.W     109 
  657.     DC.W     112 
  658.     DC.W     115 
  659.     DC.W     117 
  660.     DC.W     120 
  661.     DC.W     122 
  662.     DC.W     125 
  663.     DC.W     127 
  664.     DC.W     130 
  665.     DC.W     132 
  666.     DC.W     134 
  667.     DC.W     137 
  668.     DC.W     139 
  669.     DC.W     141 
  670.     DC.W     143 
  671.     DC.W     145 
  672.     DC.W     147 
  673.     DC.W     149 
  674.     DC.W     151 
  675.     DC.W     152 
  676.     DC.W     154 
  677.     DC.W     156 
  678.     DC.W     157 
  679.     DC.W     159 
  680.     DC.W     160 
  681.     DC.W     161 
  682.     DC.W     162 
  683.     DC.W     163 
  684.     DC.W     164 
  685.     DC.W     165 
  686.     DC.W     166 
  687.     DC.W     167 
  688.     DC.W     168 
  689.     DC.W     168 
  690.     DC.W     169 
  691.     DC.W     169 
  692.     DC.W     169 
  693.     DC.W     169 
  694.     DC.W     169 
  695.     DC.W     169 
  696.     DC.W     169 
  697.     DC.W     169 
  698.     DC.W     169 
  699.     DC.W     169 
  700.     DC.W     168 
  701.     DC.W     168 
  702.     DC.W     167 
  703.     DC.W     166 
  704.     DC.W     165 
  705.     DC.W     164 
  706.     DC.W     163 
  707.     DC.W     162 
  708.     DC.W     161 
  709.     DC.W     160 
  710.     DC.W     159 
  711.     DC.W     157 
  712.     DC.W     156 
  713.     DC.W     154 
  714.     DC.W     152 
  715.     DC.W     151 
  716.     DC.W     149 
  717.     DC.W     147 
  718.     DC.W     145 
  719.     DC.W     143 
  720.     DC.W     141 
  721.     DC.W     139 
  722.     DC.W     137 
  723.     DC.W     134 
  724.     DC.W     132 
  725.     DC.W     130 
  726.     DC.W     127 
  727.     DC.W     125 
  728.     DC.W    $FFFF
  729.     DC.W     122 
  730.     DC.W     120 
  731.     DC.W     117 
  732.     DC.W     115 
  733.     DC.W     112 
  734.     DC.W     109 
  735.     DC.W     107 
  736.     DC.W     104 
  737.     DC.W     101 
  738.     DC.W     98 
  739.     DC.W     96 
  740.     DC.W     93 
  741.     DC.W     90 
  742.     DC.W     87 
  743.     DC.W     85 
  744.     DC.W     82 
  745.     DC.W     79 
  746.     DC.W     76 
  747.     DC.W     73 
  748.     DC.W     71 
  749.     DC.W     68 
  750.     DC.W     65 
  751.     DC.W     62 
  752.     DC.W     60 
  753.     DC.W     57 
  754.     DC.W     54 
  755.     DC.W     52 
  756.     DC.W     49 
  757.     DC.W     47 
  758.     DC.W     44 
  759.     DC.W     42 
  760.     DC.W     39 
  761.     DC.W     37 
  762.     DC.W     35 
  763.     DC.W     32 
  764.     DC.W     30 
  765.     DC.W     28 
  766.     DC.W     26 
  767.     DC.W     24 
  768.     DC.W     22 
  769.     DC.W     20 
  770.     DC.W     18 
  771.     DC.W     17 
  772.     DC.W     15 
  773.     DC.W     13 
  774.     DC.W     12 
  775.     DC.W     10 
  776.     DC.W     9 
  777.     DC.W     8 
  778.     DC.W     7 
  779.     DC.W     6 
  780.     DC.W     5 
  781.     DC.W     4 
  782.     DC.W     3 
  783.     DC.W     2 
  784.     DC.W     1 
  785.     DC.W     1 
  786.     DC.W     0 
  787.     DC.W     0 
  788.     DC.W     0 
  789.     DC.W     0 
  790.     DC.W     0 
  791.     DC.W     0 
  792.     DC.W     0 
  793.     DC.W     0 
  794.     DC.W     0 
  795.     DC.W     0 
  796.     DC.W     1 
  797.     DC.W     1 
  798.     DC.W     2 
  799.     DC.W     3 
  800.     DC.W     4 
  801.     DC.W     5 
  802.     DC.W     6 
  803.     DC.W     7 
  804.     DC.W     8 
  805.     DC.W     9 
  806.     DC.W     10 
  807.     DC.W     12 
  808.     DC.W     13 
  809.     DC.W     15 
  810.     DC.W     17 
  811.     DC.W     18 
  812.     DC.W     20 
  813.     DC.W     22 
  814.     DC.W     24 
  815.     DC.W     26 
  816.     DC.W     28 
  817.     DC.W     30 
  818.     DC.W     32 
  819.     DC.W     35 
  820.     DC.W     37 
  821.     DC.W     39 
  822.     DC.W     42 
  823.     DC.W     44 
  824.     DC.W     47 
  825.     DC.W     49 
  826.     DC.W     52 
  827.     DC.W     54 
  828.     DC.W     57 
  829.  
  830. SINUS2    DC.W     43 
  831.     DC.W     43 
  832.     DC.W     44 
  833.     DC.W     45 
  834.     DC.W     46 
  835.     DC.W     47 
  836.     DC.W     48 
  837.     DC.W     49 
  838.     DC.W     50 
  839.     DC.W     51 
  840.     DC.W     51 
  841.     DC.W     52 
  842.     DC.W     53 
  843.     DC.W     54 
  844.     DC.W     55 
  845.     DC.W     56 
  846.     DC.W     57 
  847.     DC.W     57 
  848.     DC.W     58 
  849.     DC.W     59 
  850.     DC.W     60 
  851.     DC.W     61 
  852.     DC.W     62 
  853.     DC.W     62 
  854.     DC.W     63 
  855.     DC.W     64 
  856.     DC.W     65 
  857.     DC.W     66 
  858.     DC.W     66 
  859.     DC.W     67 
  860.     DC.W     68 
  861.     DC.W     68 
  862.     DC.W     69 
  863.     DC.W     70 
  864.     DC.W     71 
  865.     DC.W     71 
  866.     DC.W     72 
  867.     DC.W     73 
  868.     DC.W     73 
  869.     DC.W     74 
  870.     DC.W     74 
  871.     DC.W     75 
  872.     DC.W     76 
  873.     DC.W     76 
  874.     DC.W     77 
  875.     DC.W     77 
  876.     DC.W     78 
  877.     DC.W     78 
  878.     DC.W     79 
  879.     DC.W     79 
  880.     DC.W     80 
  881.     DC.W     80 
  882.     DC.W     81 
  883.     DC.W     81 
  884.     DC.W     81 
  885.     DC.W     82 
  886.     DC.W     82 
  887.     DC.W     82 
  888.     DC.W     83 
  889.     DC.W     83 
  890.     DC.W     83 
  891.     DC.W     84 
  892.     DC.W     84 
  893.     DC.W     84 
  894.     DC.W     84 
  895.     DC.W     85 
  896.     DC.W     85 
  897.     DC.W     85 
  898.     DC.W     85 
  899.     DC.W     85 
  900.     DC.W     85 
  901.     DC.W     85 
  902.     DC.W     85 
  903.     DC.W     85 
  904.     DC.W     85 
  905.     DC.W     86 
  906.     DC.W     85 
  907.     DC.W     85 
  908.     DC.W     85 
  909.     DC.W     85 
  910.     DC.W     85 
  911.     DC.W     85 
  912.     DC.W     85 
  913.     DC.W     85 
  914.     DC.W     85 
  915.     DC.W     85 
  916.     DC.W     84 
  917.     DC.W     84 
  918.     DC.W     84 
  919.     DC.W     84 
  920.     DC.W     83 
  921.     DC.W     83 
  922.     DC.W     83 
  923.     DC.W     82 
  924.     DC.W     82 
  925.     DC.W     82 
  926.     DC.W     81 
  927.     DC.W     81 
  928.     DC.W     81 
  929.     DC.W     80 
  930.     DC.W     80 
  931.     DC.W     79 
  932.     DC.W     79 
  933.     DC.W     78 
  934.     DC.W     78 
  935.     DC.W     77 
  936.     DC.W     77 
  937.     DC.W     76 
  938.     DC.W     76 
  939.     DC.W     75 
  940.     DC.W     74 
  941.     DC.W     74 
  942.     DC.W     73 
  943.     DC.W     73 
  944.     DC.W     72 
  945.     DC.W     71 
  946.     DC.W     71 
  947.     DC.W     70 
  948.     DC.W     69 
  949.     DC.W     68 
  950.     DC.W     68 
  951.     DC.W     67 
  952.     DC.W     66 
  953.     DC.W     66 
  954.     DC.W     65 
  955.     DC.W     64 
  956.     DC.W     63 
  957.     DC.W     62 
  958.     DC.W     62 
  959.     DC.W     61 
  960.     DC.W     60 
  961.     DC.W     59 
  962.     DC.W     58 
  963.     DC.W     57 
  964.     DC.W     57 
  965.     DC.W     56 
  966.     DC.W     55 
  967.     DC.W     54 
  968.     DC.W     53 
  969.     DC.W     52 
  970.     DC.W     51 
  971.     DC.W     51 
  972.     DC.W     50 
  973.     DC.W     49 
  974.     DC.W     48 
  975.     DC.W     47 
  976.     DC.W     46 
  977.     DC.W     45 
  978.     DC.W     44 
  979.     DC.W     43 
  980.     DC.W     43 
  981.     DC.W     42 
  982.     DC.W     41 
  983.     DC.W     40 
  984.     DC.W     39 
  985.     DC.W     38 
  986.     DC.W     37 
  987.     DC.W     36 
  988.     DC.W     35 
  989.     DC.W     34 
  990.     DC.W     34 
  991.     DC.W     33 
  992.     DC.W     32 
  993.     DC.W     31 
  994.     DC.W     30 
  995.     DC.W     29 
  996.     DC.W     28 
  997.     DC.W     28 
  998.     DC.W     27 
  999.     DC.W     26 
  1000.     DC.W     25 
  1001.     DC.W     24 
  1002.     DC.W     23 
  1003.     DC.W     23 
  1004.     DC.W     22 
  1005.     DC.W     21 
  1006.     DC.W     20 
  1007.     DC.W     19 
  1008.     DC.W     19 
  1009.     DC.W     18 
  1010.     DC.W     17 
  1011.     DC.W     17 
  1012.     DC.W     16 
  1013.     DC.W     15 
  1014.     DC.W     14 
  1015.     DC.W     14 
  1016.     DC.W     13 
  1017.     DC.W     12 
  1018.     DC.W     12 
  1019.     DC.W     11 
  1020.     DC.W     11 
  1021.     DC.W     10 
  1022.     DC.W     9 
  1023.     DC.W     9 
  1024.     DC.W     8 
  1025.     DC.W     8 
  1026.     DC.W     7 
  1027.     DC.W     7 
  1028.     DC.W     6 
  1029.     DC.W     6 
  1030.     DC.W     5 
  1031.     DC.W     5 
  1032.     DC.W     4 
  1033.     DC.W     4 
  1034.     DC.W     4 
  1035.     DC.W     3 
  1036.     DC.W     3 
  1037.     DC.W     3 
  1038.     DC.W     2 
  1039.     DC.W     2 
  1040.     DC.W     2 
  1041.     DC.W     1 
  1042.     DC.W     1 
  1043.     DC.W     1 
  1044.     DC.W     1 
  1045.     DC.W     0 
  1046.     DC.W     0 
  1047.     DC.W     0 
  1048.     DC.W     0 
  1049.     DC.W     0 
  1050.     DC.W     0 
  1051.     DC.W     0 
  1052.     DC.W     0 
  1053.     DC.W     0 
  1054.     DC.W     0 
  1055.     DC.W     0 
  1056.     DC.W     0 
  1057.     DC.W     0 
  1058.     DC.W     0 
  1059.     DC.W     0 
  1060.     DC.W     0 
  1061.     DC.W     0 
  1062.     DC.W     0 
  1063.     DC.W     0 
  1064.     DC.W     0 
  1065.     DC.W     0 
  1066.     DC.W     1 
  1067.     DC.W     1 
  1068.     DC.W     1 
  1069.     DC.W     1 
  1070.     DC.W     2 
  1071.     DC.W     2 
  1072.     DC.W     2 
  1073.     DC.W     3 
  1074.     DC.W     3 
  1075.     DC.W     3 
  1076.     DC.W     4 
  1077.     DC.W     4 
  1078.     DC.W     4 
  1079.     DC.W     5 
  1080.     DC.W     5 
  1081.     DC.W     6 
  1082.     DC.W     6 
  1083.     DC.W     7 
  1084.     DC.W     7 
  1085.     DC.W     8 
  1086.     DC.W     8 
  1087.     DC.W     9 
  1088.     DC.W     9 
  1089.     DC.W     10 
  1090.     DC.W     11 
  1091.     DC.W     11 
  1092.     DC.W     12 
  1093.     DC.W     12 
  1094.     DC.W     13 
  1095.     DC.W     14 
  1096.     DC.W     14 
  1097.     DC.W     15 
  1098.     DC.W     16 
  1099.     DC.W     17 
  1100.     DC.W     17 
  1101.     DC.W     18 
  1102.     DC.W     19 
  1103.     DC.W     19 
  1104.     DC.W     20 
  1105.     DC.W     21 
  1106.     DC.W     22 
  1107.     DC.W     23 
  1108.     DC.W     23 
  1109.     DC.W     24 
  1110.     DC.W     25 
  1111.     DC.W     26 
  1112.     DC.W     27 
  1113.     DC.W     28 
  1114.     DC.W     28 
  1115.     DC.W     29 
  1116.     DC.W     30 
  1117.     DC.W     31 
  1118.     DC.W     32 
  1119.     DC.W     33 
  1120.     DC.W     34 
  1121.     DC.W     34 
  1122.     DC.W     35 
  1123.     DC.W     36 
  1124.     DC.W     37 
  1125.     DC.W     38 
  1126.     DC.W     39 
  1127.     DC.W     40 
  1128.     DC.W     41 
  1129.     DC.W     42 
  1130.     DC.W     43 
  1131.     DC.W     43 
  1132.     DC.W     44 
  1133.     DC.W     45 
  1134.     DC.W     46 
  1135.     DC.W     47 
  1136.     DC.W     48 
  1137.     DC.W     49 
  1138.     DC.W     50 
  1139.     DC.W     51 
  1140.     DC.W     51 
  1141.     DC.W     52 
  1142.     DC.W     53 
  1143.     DC.W     54 
  1144.     DC.W     55 
  1145.     DC.W     56 
  1146.     DC.W     57 
  1147.     DC.W     57 
  1148.     DC.W     58 
  1149.     DC.W     59 
  1150.     DC.W     60 
  1151.     DC.W     61 
  1152.     DC.W     62 
  1153.     DC.W     62 
  1154.     DC.W     63 
  1155.     DC.W     64 
  1156.     DC.W     65 
  1157.     DC.W     66 
  1158.     DC.W     66 
  1159.     DC.W     67 
  1160.     DC.W     68 
  1161.     DC.W     68 
  1162.     DC.W     69 
  1163.     DC.W     70 
  1164.     DC.W     71 
  1165.     DC.W     71 
  1166.     DC.W     72 
  1167.     DC.W     73 
  1168.     DC.W     73 
  1169.     DC.W     74 
  1170.     DC.W     74 
  1171.     DC.W     75 
  1172.     DC.W     76 
  1173.     DC.W     76 
  1174.     DC.W     77 
  1175.     DC.W     77 
  1176.     DC.W     78 
  1177.     DC.W     78 
  1178.     DC.W     79 
  1179.     DC.W     79 
  1180.     DC.W     80 
  1181.     DC.W     80 
  1182.     DC.W     81 
  1183.     DC.W     81 
  1184.     DC.W     81 
  1185.     DC.W     82 
  1186.     DC.W     82 
  1187.     DC.W     82 
  1188.     DC.W     83 
  1189.     DC.W     83 
  1190.     DC.W     83 
  1191.     DC.W     84 
  1192.     DC.W     84 
  1193.     DC.W     84 
  1194.     DC.W     84 
  1195.     DC.W     85 
  1196.     DC.W     85 
  1197.     DC.W     85 
  1198.     DC.W     85 
  1199.     DC.W     85 
  1200.     DC.W     85 
  1201.     DC.W     85 
  1202.     DC.W     85 
  1203.     DC.W     85 
  1204.     DC.W     85 
  1205.     DC.W     86 
  1206.     DC.W     85 
  1207.     DC.W     85 
  1208.     DC.W     85 
  1209.     DC.W     85 
  1210.     DC.W     85 
  1211.     DC.W     85 
  1212.     DC.W     85 
  1213.     DC.W     85 
  1214.     DC.W     85 
  1215.     DC.W     85 
  1216.     DC.W     84 
  1217.     DC.W     84 
  1218.     DC.W     84 
  1219.     DC.W     84 
  1220.     DC.W     83 
  1221.     DC.W     83 
  1222.     DC.W     83 
  1223.     DC.W     82 
  1224.     DC.W     82 
  1225.     DC.W     82 
  1226.     DC.W     81 
  1227.     DC.W     81 
  1228.     DC.W     81 
  1229.     DC.W     80 
  1230.     DC.W     80 
  1231.     DC.W     79 
  1232.     DC.W     79 
  1233.     DC.W     78 
  1234.     DC.W     78 
  1235.     DC.W     77 
  1236.     DC.W     77 
  1237.     DC.W     76 
  1238.     DC.W     76 
  1239.     DC.W     75 
  1240.     DC.W     74 
  1241.     DC.W     74 
  1242.     DC.W     73 
  1243.     DC.W     73 
  1244.     DC.W     72 
  1245.     DC.W     71 
  1246.     DC.W     71 
  1247.     DC.W     70 
  1248.     DC.W     69 
  1249.     DC.W     68 
  1250.     DC.W     68 
  1251.     DC.W     67 
  1252.     DC.W     66 
  1253.     DC.W     66 
  1254.     DC.W     65 
  1255.     DC.W     64 
  1256.     DC.W     63 
  1257.     DC.W     62 
  1258.     DC.W     62 
  1259.     DC.W     61 
  1260.     DC.W     60 
  1261.     DC.W     59 
  1262.     DC.W     58 
  1263.     DC.W     57 
  1264.     DC.W     57 
  1265.     DC.W     56 
  1266.     DC.W     55 
  1267.     DC.W     54 
  1268.     DC.W     53 
  1269.     DC.W     52 
  1270.     DC.W     51 
  1271.     DC.W     51 
  1272.     DC.W     50 
  1273.     DC.W     49 
  1274.     DC.W     48 
  1275.     DC.W     47 
  1276.     DC.W     46 
  1277.     DC.W     45 
  1278.     DC.W     44 
  1279.     DC.W     43 
  1280.     DC.W     42 
  1281.     DC.W     42 
  1282.     DC.W     41 
  1283.     DC.W     40 
  1284.     DC.W     39 
  1285.     DC.W     38 
  1286.     DC.W     37 
  1287.     DC.W     36 
  1288.     DC.W     35 
  1289.     DC.W     34 
  1290.     DC.W     34 
  1291.     DC.W     33 
  1292.     DC.W     32 
  1293.     DC.W     31 
  1294.     DC.W     30 
  1295.     DC.W     29 
  1296.     DC.W     28 
  1297.     DC.W     28 
  1298.     DC.W     27 
  1299.     DC.W     26 
  1300.     DC.W     25 
  1301.     DC.W     24 
  1302.     DC.W     23 
  1303.     DC.W     23 
  1304.     DC.W     22 
  1305.     DC.W     21 
  1306.     DC.W     20 
  1307.     DC.W     19 
  1308.     DC.W     19 
  1309.     DC.W     18 
  1310.     DC.W     17 
  1311.     DC.W     17 
  1312.     DC.W     16 
  1313.     DC.W     15 
  1314.     DC.W     14 
  1315.     DC.W     14 
  1316.     DC.W     13 
  1317.     DC.W     12 
  1318.     DC.W     12 
  1319.     DC.W     11 
  1320.     DC.W     11 
  1321.     DC.W     10 
  1322.     DC.W     9 
  1323.     DC.W     9 
  1324.     DC.W     8 
  1325.     DC.W     8 
  1326.     DC.W     7 
  1327.     DC.W     7 
  1328.     DC.W     6 
  1329.     DC.W     6 
  1330.     DC.W     5 
  1331.     DC.W     5 
  1332.     DC.W     4 
  1333.     DC.W     4 
  1334.     DC.W     4 
  1335.     DC.W     3 
  1336.     DC.W     3 
  1337.     DC.W     3 
  1338.     DC.W     2 
  1339.     DC.W     2 
  1340.     DC.W     2 
  1341.     DC.W     1 
  1342.     DC.W     1 
  1343.     DC.W     1 
  1344.     DC.W     1 
  1345.     DC.W     0 
  1346.     DC.W     0 
  1347.     DC.W     0 
  1348.     DC.W     0 
  1349.     DC.W     0 
  1350.     DC.W     0 
  1351.     DC.W     0 
  1352.     DC.W     0 
  1353.     DC.W     0 
  1354.     DC.W     0 
  1355.     DC.W     0 
  1356.     DC.W     0 
  1357.     DC.W     0 
  1358.     DC.W     0 
  1359.     DC.W     0 
  1360.     DC.W     0 
  1361.     DC.W     0 
  1362.     DC.W     0 
  1363.     DC.W     0 
  1364.     DC.W     0 
  1365.     DC.W     0 
  1366.     DC.W     1 
  1367.     DC.W     1 
  1368.     DC.W     1 
  1369.     DC.W     1 
  1370.     DC.W     2 
  1371.     DC.W     2 
  1372.     DC.W     2 
  1373.     DC.W     3 
  1374.     DC.W     3 
  1375.     DC.W     3 
  1376.     DC.W     4 
  1377.     DC.W     4 
  1378.     DC.W     4 
  1379.     DC.W     5 
  1380.     DC.W     5 
  1381.     DC.W     6 
  1382.     DC.W     6 
  1383.     DC.W     7 
  1384.     DC.W     7 
  1385.     DC.W     8 
  1386.     DC.W     8 
  1387.     DC.W     9 
  1388.     DC.W     9 
  1389.     DC.W     10 
  1390.     DC.W     11 
  1391.     DC.W     11 
  1392.     DC.W     12 
  1393.     DC.W     12 
  1394.     DC.W     13 
  1395.     DC.W    $FFFF
  1396.     DC.W     14 
  1397.     DC.W     14 
  1398.     DC.W     15 
  1399.     DC.W     16 
  1400.     DC.W     17 
  1401.     DC.W     17 
  1402.     DC.W     18 
  1403.     DC.W     19 
  1404.     DC.W     19 
  1405.     DC.W     20 
  1406.     DC.W     21 
  1407.     DC.W     22 
  1408.     DC.W     23 
  1409.     DC.W     23 
  1410.     DC.W     24 
  1411.     DC.W     25 
  1412.     DC.W     26 
  1413.     DC.W     27 
  1414.     DC.W     28 
  1415.     DC.W     28 
  1416.     DC.W     29 
  1417.     DC.W     30 
  1418.     DC.W     31 
  1419.     DC.W     32 
  1420.     DC.W     33 
  1421.     DC.W     34 
  1422.     DC.W     34 
  1423.     DC.W     35 
  1424.     DC.W     36 
  1425.     DC.W     37 
  1426.     DC.W     38 
  1427.     DC.W     39 
  1428.     DC.W     40 
  1429.     DC.W     41 
  1430.     DC.W     42 
  1431.     DC.W     43 
  1432.     DC.W     43 
  1433.     DC.W     44 
  1434.     DC.W     45 
  1435.     DC.W     46 
  1436.     DC.W     47 
  1437.     DC.W     48 
  1438.     DC.W     49 
  1439.     DC.W     50 
  1440.     DC.W     51 
  1441.     DC.W     51 
  1442.     DC.W     52 
  1443.     DC.W     53 
  1444.     DC.W     54 
  1445.     DC.W     55 
  1446.     DC.W     56 
  1447.     DC.W     57 
  1448.     DC.W     57 
  1449.     DC.W     58 
  1450.     DC.W     59 
  1451.     DC.W     60 
  1452.     DC.W     61 
  1453.     DC.W     62 
  1454.     DC.W     62 
  1455.     DC.W     63 
  1456.     DC.W     64 
  1457.     DC.W     65 
  1458.     DC.W     66 
  1459.     DC.W     66 
  1460.     DC.W     67 
  1461.     DC.W     68 
  1462.     DC.W     69 
  1463.     DC.W     69 
  1464.     DC.W     70 
  1465.     DC.W     71 
  1466.     DC.W     71 
  1467.     DC.W     72 
  1468.     DC.W     73 
  1469.     DC.W     73 
  1470.     DC.W     74 
  1471.     DC.W     74 
  1472.     DC.W     75 
  1473.     DC.W     76 
  1474.     DC.W     76 
  1475.